home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / comp / primops / test.t < prev   
Encoding:
Text File  |  1989-06-30  |  666 b   |  24 lines
  1. (herald mipsarith
  2.   (env (*value orbit-env 'base-early-binding-env) primops))
  3.  
  4. (define-constant char->ascii
  5.   (primop char->ascii ()
  6.     ((primop.generate self node)
  7.      (generate-char->ascii node))
  8.     ((primop.rep-wants self)
  9.      '(rep/char))
  10.     ((primop.arg-specs self)
  11.      '(scratch))
  12.     ((primop.type self node)
  13.      '#[type (proc #f (proc #f fixnum) char)])))
  14.  
  15. (define-constant ascii->char
  16.   (primop ascii->char ()
  17.     ((primop.generate self node)
  18.      (generate-ascii->char node))
  19.     ((primop.rep-wants self)
  20.      '(rep/integer))
  21.     ((primop.arg-specs self)
  22.      '(scratch))
  23.     ((primop.type self node)
  24.      '#[type (proc #f (proc #f char) fixnum)])))